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DESCRIPTION 
There ere now several Nestar provided pascal routines 
(units, actually) for sending and receiving messages over 
the Nestar Cluster/Ore Model A network. 


The routines provide eccess to the retwork at verious 
“levels”; the “high” level routines ercapsulete most details 
of the interface while the “low” level routines give more 
control over message handling. 


The highest level routine is NFSCMD (formerly called 
SENDMSG), which takes a string containing å command for the 
Nestar File Server and returns a ,strirg containing the 


Status line from NFS (typically @,OK .) Łny associated 
messages from NFS are displeyed directly on the screer, not 
returned to the program. Thus, NFSCMD (Ø, “SEO 


DATE',response) displays the date or the screen and returns 
9,0K in the string named “response. 


The next level routine is NFSCMD1, which sends a command to 
the file server but retains control over all assccieted 
reply messages. NFSCMD1 is called repeatedly. eéch time 
returning the next line of text from NFS, until the final 
message from NFS (e.g. Ø,0K or whatever) is receivec. 


The lowest level routines are EUSSEND and BUSRCV, which send 


and receive single messages to and from eny network station 
(not restricted to the file server.) 


OPERATING INSTRUCTICNS 
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A new library, PASCAL:NETWORK .LIERARY, conteins the 
routines. To use any of the routines your program should 
include: 


USES (*$U PASCAL: NETWORK.LIBRARY *) unitnamej 
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where “unitname in the USES instruction should be "NFSUNIT" 
for NFSMD, NFSUNITi1 for NrSCMD1, and  BUSUNIT for BUSSEND 
and BUSRCV. The object file must be linked using 
PASCAL:NETWORK.LIBRARY as one of the lib file Ís. 


Specific instructions for each of the routines, including 
listings of tne unit interfaces and sample usage in 
programs, ere given below. 
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The unit NFSUNIT provides the function  NFSCMD. The unit 
interface is as follows: 
UNIT NFSUNIT; 
INTERFACE 
TYPE NETMSG = STRING(255]; 
FUNCTION NFSCMD (NETID: INTEGER; COMMAND: NETMSG; 
VAR RETMSC: STRINC;:INTECER; 
(* sends the giver string (command) across the network * 
(* to NFS, and returns the final status message in the * ) 
(* string retmsg and the error code as the furction value *) 
(* messages from NFS otner than the stetus messege are *) 
(* displayed directly on the screen ^ 
(* netid is 2; reserved for future multiple networks *) 


A sample program which uses NFSCMD is 


program miricmd;j; 
uses (*$U PASCAL:NETWORK.LIBEARY*) nfsunit; 
var cmd,reply : string; 
rc : integer; 
begin 
repeat 
write( ENTER CMD: ^'jj 
readln(cmi); 
re := nfscmd(£, 
writeln(rc,' ,^/, 
until cmd = “QUIT 
end. (*minicmd*) 
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Intermediate level interface - NFSCMD1i. 


The unit NFSUNIT provides the function NFSCMD. The urit 
interface is as follows: 


UNIT NFSUNIT1; 
INTERFACE 


PROCEDURE NFSCMDi(NEWCMD:EOCLEAN; CMD:STRING; 
VAR DONE: BOOLEAN; VAR RSP:STRING; 
VAR ERROR: EOOLEAN; VAR ERRNUM:INTEGER)$ 


* use nfscmdi only to intercept screen displayed * ) 
* résporses. use nfscmd for sending nfs commards *) 
* unless it is necessary tc intercept rfs responses *) 
* thet are normally displayed directly * 
* on the local screen without progrem intervention. *) 


(* called with nrewcmd = true for initially sending 
(* cmd to nfs. then iterete calling rfstalk with 

(* newcmd-false until done - true or error-true. 

(* when error-true errnum gives network error number 
(* detected. when done = true rsp contains the las 
(* text rec'd from network (eg 2,0K). 
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Code to use this urit looks like: 
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USES (*$U PASCAL: NETWORZ.LIERARY*) NFSUNIT1; 
cmd := “command; 
nfscmdi(true,cmd,done,res,error,errrum); 
while not done and rot error do 
begir 
process RSF; 
nfscmdl(false,cmá,done,rsp,error,errnum); 
end; ; 
process final response from nfs if desired; 


sample program which uses NFSCMD1 is: 
FROGRAM DIRLIST; 


USES (*$U PASCAL: NETWORK.LIBRARY*) NFSUNIT1; 
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VAR CMD, RSP : STRING; (*command to send to nfs*) 
DONE, ERROR : BOOLEAN; 
FILENAME, YORN : STRING; 
OUTFILE: FILE OF CHAR; 
I, INDX, ERRNUM : INTEGER; 
EUFFER : AERAY[2..4220] OF STRING[42];3 


BEGIN 
INDX :- Ø; 


WRITE ( ENTER DIRECTCRY PATENAME TO BE LISTED: ^); 
READLN (CMD); | 
INSERT(°LIST '/,CMD,1); 


WRITE (“NESTED LISTING? (Y/N) ^PREADLN(YORN); 
IF (YORN -^Y^) OR (YORN-^y^) 
TEEN INSERT(',NESTED ',CMD,LENGTZE (CMD) *1); 


WRITE ('/VERPOSE LISTING? (Y/N) ');READLN:YORN); 
IF (YORN =Y“) OR (YORN-/y^j 
THEN INSERT(',VERBOSE'/,CMD,LENGTE(CMD)-*1); 


WRITE (/FILENAME TO WRITE DIRECTORY LISTING TO? ^»; 
READLN(FILENAMz); 
IF (POS (°. TEXT” , FILENAME) -C) 

AND (POS('.text /, FILENAME) -2) 

AND (FILENAME(LENGTH(FILENAME)} <> 7.) 

THEN INSERT(/.TEXT/,FILENAMZ,LENGTE(FILENANE)-*1); 
REWRITE(OUTFILE, FILENAME); 


NFSCMD1(TRUE,CMD,DONE,PUFFER[INDX] ,FRROR,FRRNUM);3 
WEILE NOT DONE AND NOT ERROR DO 
BEGIN 
WRITE(BUFFER[INDX] ); 
INDX := INDX+1; 
NFSCMD1(FALSE,CMD,DONE, BUFFER[INDX] „ERROR ,ERRNUNM); 
END; 
WRITELN(EUFFER[INDX] }3 
FOR I:-2 TO INDX-1 DO WRITE(OUTFILE,BUFFEF [I] ); 
IF NOT ERROR THEN CLCSE(OUTFILE,LOCK?); 
IND. (*dirlist*) 
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The unit interfece is as follows: 


UNIT EUSUNIT; 

INTERFACE 

VAR ME : INTEGER; (*my station number*) 

FUNCTION BUSSEND(MSCTYFE,LEN,STN,MSGADDR:INTEGER) : INTEGER; 


Sends message at address MSGAITR of lergth LEN bytes 
of type MSGTYPE imessage type is interpreted by tne 
sender and receiver by mutuel convention, however 
message types Ø to 127 are reserved by Nestar, tkeir 
use may ceuse unpredicable results?) 

to station STN. function value is network return code 
(bussend = 2 if message transmitted ck) 


* % 
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FUNCTION BUSRCV 
(LEN, MSGADDR:INTEGER; | 
VAR MSGTYPE,TLEN,STNGINTEGERJ:INTIGER; 


(* Receives message into address MSGADDR * ) 
(* of maximum lergth LEN bytes * 
(* (TLEN = actual length rec d) * 
(* cf type MSGTYPE from station STN. x } 
(* Function value is network return code * ) 
(* (busrcv = Ø if message transmitted ok) * ) 


rx 
(n 


The followirg is e sample program for exercising th 
routines: 


program bustest; 


uses (*$U pascal:retwork.library*) busunit; 
const maxtries = 5; 
type longstring = string [255] 3 
var str:?longstring; 
mtyp, stn, tlen, result:integer; 
i, tries : integer; 


begin 
new(str)3 
repeet 
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write('serd, recv, or quit? (r/s/q) '):reedln(strt); 
if (strt =. $5 ) or (strt = tS J ther 
begin 

write(/msg?  '")i;readlr(str?); 

write( “to? ^);readln(str); 

tries:-2; result ¿= -13 

while (result <> 2) and (tries < maxtries) do 

begir 


(* FUNCTION BUSSEND * ) 
(* (MSCTYFE,LEN,STN,MSGAIDR:INTEGER):INTEGER; *) 


result :- bussendí(E,length(str?^)-1,stn,ord.str)); 
if result <> Ø then 
begin 
tries := tries + 1; 
if tries = 1 then write( ‘retrying’ ) 
else write('.^); 
for I:=1 to 18080 (*built in delay*) do; 
end 
else if tries > @ then writeln; 
end; (*while*) 
if result <> @ then begin 
writeln('.station ',stn,' not listening’); 


end; 
end 
else if (str? = “r“) or (strt = RÓ) then 
begin 

Stet gs t. 


(* FUNCTION BUSRCV4LEN, MSGAIDR: INTEGER} 
VAR MSGTYPE,TLEN,STN: INTEGER): INTEGER; *) 
result := busrcv(255,0rdí(str),mtyp,tlen,stn'; 
if result = Ø 
then writeln(/msg is °,strt.” from '.stn) 
else writeln( result is ',result); 
end 
else if (strt = "a"; or (strt = 9°) 
then exit(program}; 
until false 
end. (*bustest*) 
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